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while(l) { 

Step 1: 

DEM : : f indProac tion ( ) ; 

Step 2 : 

selection = DEM: : wai tForlnterrupt (&r f d) ; 
Step 9: 

DEM: : updateTimeVar iables (selection) ; 

Step 3: 

if (firingDelay > 0) 

ford = 0; i < real t imeC opponents . size ; i + +) 

realtimeComponents . elements [i 3 ->update (firingDelay) ; 

Step 5: 

if ( interruptAlerts . size > 0) 

alert = DEM : : getlnterruptAlert ( ) ; 
else if (selection < 0) { 

// selection < 0: some error with select happened. 

writeErrorLog (error) ; 

continue ; 

} 

else if ((selection == 0) && ( interruptAlerts . size == 0)) 

// if selection is 0 and no interrupt was received (timeout has 
// expired) , a fake alert is generated. 

alert = DE!-! : : getAlert ( ) ; 

Step 4 : 

else if (shellln 0 FD_ISSET (shellln , &rfd) ) { 

// selection > 0 + shellln: a shell command has been received. 
DEM: : executeShel ICommand ( ) ; 
continue ; 

) 

else if ( incomingConnectionRequestPort >= 0 

&& FD_ISSET (incomingConnectionRequestPort , &rfd) ) { 

// selection > 0 + incomingConnectionRequestPort: a new 

// connection is being requested. 

struct sockaddr_in client; 

int 1 - sizeof (client) ; 

SOCKET c = accept ( incomingConnectionRequestPort , 

(struct sockaddr *)&client, &1); 
if (c < 0) { 

writeErrorLog (error ) ; 

continue ; 

} 

else { 

// The address of the client is stored in 
// DEM: : pendingConnections 
pendingConnect ions . add ( c ) ; 
continue ; 

) 

) 

else { 
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Step 6: 

// selection > 0 + message on active connection or pending 
// connection 

// Every act iveConnection is checked, 
for (i = 0; i<act iveConnections . size ; i + +) 

if ( FD_ISSET (activeConnections . elements [ i } ->fd, &rfd) ) 
break; 

if (i == activeConnections . size) { 

// If no activeConnection was selected, every 
// pendingConnection is checked, 
int j ; 

for(j = 0; j < pendingConnections . size; 

if ( FD_ISSET (pendingConnections . elements [ j ] , 

&rfd) ) 

break; 

if (j == pendingConnections . size) { 

writeErrorLog ( "DEM: : received interrupt 

but no inputs are set\n M ); 

continue; 

} 

else 

// Detect the protocol and validate the 
// message 

DEM : : val ida tePendingConnec t ion ( Socke tType , 

pendingConnections . elements ( j ] ) ; 
continue ; 

} 

else 

// Get the alert from the selected activeConnection- 
alert = DEM: : getAlert ( Socke tType , 
activeConnections . elements [ i ] -> f d) ; 
) 

if (alert ==0) 
continue ; 

Step 7 : 

// The action associated with the scheduled transition is executed and 
// the return event is stored in event. 

Event *event = ( schedu 1 edComponent - > * scheduledComponen t - > 
a ( ) [ schedu ledTrans it ion] ) (alert) ; 

Step 8: 

if ( (scheduledComponent->q 

= (schedu 1 edComponen t - > t ( ) ( schedu ledTrans i t ion ] ) . to) < 0) 
// If the component has reached the stop state, add it to 
// DEM : : deletedComponents 

deletedComponents . add { schedu ledComponent ) ; 

else { 

// Otherwise execute the flow function. The scheduledComponent 

// is added to DEM : : changedComponents . 

( schedu ledComponent - > * scheduledComponent - > 

f () [scheduledComponent->q] ) (); 
if ( scheduledComponent->transientStates ( ) [ scheduledComponent- >q ] ) 

transientStateComponents . add ( scheduledComponent ) ; 

else 

transientStateComponents . remove ( scheduledComponent ) ; 
changedComponents . add ( scheduledComponent ) ; 

) 
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// No return event, 
if (event = = 0) { 

transi tionld + = 1; 

DEM: : writeTransi tionLog (alert , event) ; 
delete alert; 

for(i=0; i<deletedComponents . s ize ; 

DEM: : stopComponent (deletedComponents . elements [ i ] ) ; 
continue; 

} 

// Propagate the return event to dependents. 

// Find the dependents, 
for (i=0; 

i < scheduledComponent->dependents [ scheduledTransi tion] ->size; 
i + +) 

propagatedComponents . add 

(scheduledComponent->dependents [scheduledTransition] - 
>eler.ents t i] ) ; 

// Find enabled responses in dependents, execute them and do 
// housekeeping. 

for(i=0; i<propagatedComponents . size; i++) { 

Component *c = propagatedComponents . elements [ i ] ; 
int t = c->f indResponse (event->event ) ; 
if (t<0) 

continue ; 

Event *re = (c-> *c->a ()[ t 1 ) (event ) ; 
if (re ■ = 0 && re != event) 

responseEvents . add ( re) ; 

if ((c->q = c->t ( ) [t ] . to) < 0) 
deletedComponents . add (c) ; 

else { 

(c->*c->f () [c->q] ) () ; 

if (c->transientStates ( ) [c->q] ) 

transientStateComponents . add (c ) ; 

else 

transientStateComponents . remove (c) ; 
changedComponents . add(c) ; 

} 

) 

Step 10: 

transitionld += 1; 

DEM: : wr i teTrans i t ionLog (alert , event) ; 

// Final housekeeping, 
delete alert; 

if (event != alert) // event could be just "return alert" 

delete event; 
for(i=0; i<responseEvents . size ; i++) 

delete responseEvents . elements [ i ) ; 
for(i=0; i <deletedComponents . size; i++) 

DEM : : stopComponent (deletedComponents . elements [ i j ) ; 

} 
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